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AIRBORNE ANTENNA COVERAGE REQUIREMENTS FOR THE TCV B-737 AIRCRAFT 


Sump iry 

A study was conducted to determine tne airborne antenna line of sight 
look angle requirement for operation with a Microwave Landing System (MLS). 
This report presents the required azimuth and elevation line of sight look 
angles from an antenna located on an aircraft to three ground based antenna 
sites at the Wallops Flight Center (FPS-16 radar, MLS azimuth, and MLS 
elevation) as the aircraft follows specific approach paths selected as 
representati ve of MLS operations at the Denver, Colorado, terminal area. 

These required azimuth and elevation look angles may be interpreted as basic 
design requirements for antennae of the TCV B-737 airplane for MLS operations 
along these selected approach paths. 

Introduction 

Two areas of investigation included in the Terminal Configured Vehicle 
(TCV) program are Microwave Landing System (MLS) utilization and the Cockpit 
Display of Traffic Information (CDTI). The required facilities for these 
tasks, both airborne and ground based ire located at Lanqley Research Center 
(LRC) and Wallops Flight Center (WFC). Landing guidance information will be 
transmitted to the aircraft from either an MLS (when available at WFC) or 
from a simulated MLS using tne WFC FPS-16 Radar/Transponder Data System. For 
the CDTI case, an S-band video link has been implemented. The S-band transmit 
antenna is mounted on the FPS-16 pedestal. This report presents the azimuth 
and elevation look angles from the aircraft to the ground antenna sites for 
four flight profiles. The four terminal area flight profiles considered 


are those proposed by the FAA for the Denver, Colorado, terminal area for 
MLS operation studies. The Denver terminal area Is shown In figure 1 with the 
four paths labeled profile 1, 2 , 3, 4. 


Description of Computer Program 

A computer program was written in Basic for a Hewlett-Packard 2116 
computer. See appendix A for the program listing. The computer program input 
parameters are: 

1- distance between waypoints 

2- aircraft heading, airspeed, and altitude at each waypoint 

3- aircraft bank angle limit 

4- turn radius 

5- MLS coverage boundary 

6- number of points to be investigated along each flight path segment 
The program output parameters are: 

1- x (runway center line), y (perpendicular to runway centerline) and 

flat earth z (local vertical) coordinate values for n (number of) 
aircraft positions along each flight path segment (refer to figure 1) 

2- azimuth (beta) and elevation (alpha) look angles from the aircraft 

to either of three ground antenna sites for each x, y, z position 

3- azimuth and elevation look angles from each ground antenna to aircraft 
at each x, y, z position 

4- glideslope required to achieve the next waypoint altitude 

5- slant range between aircraft and each ground antenna site 

6- transmission loss for each slant range of item 5 

7- statement as to whether aircraft is or is not within MLS coverage zone 

8- bank angle 


ORIGINAL »i 
OF POOfiQtf 



2 


9- aircraft groundspeed 

10- distance to go to touchdown along the flight path 

11- aircraft heading 

The program performs any one of three operations as per the setting of 
three control words J4, J7, J8. Control word J4 sets the program for calcula- 
tion and storage of the look angles to the MLS antenna sites and aircraft x, y 
position or calculation and storage of the look angles to the F PS- 1 6 radar site. 
Control word J7 determines whether the program will score the flight Dath data 
or the ’ook angles to the MLS. Control word J8 determines whether the program 
will print all data and store the look angles or only store. For the FPS-16 
radar case, the operator must input the x, y (J5, J6) location of the radar 
relative to the touchdown point. For the MLS case, the azimuth antenna is 
sited 9,000 ft beyond the touchdown point on the runway centerline and the 
elevation antenna is sited adjacent to the touchdown point, 300 ft to the right 
of the runway centerline. The origir of the coordinate system is located at 
the touchdown point which is on the runway centerline 1,000 ft beyond threshold. 
Figure 2 gives the WFC runway and antenna geometry. Beginning at the outermost 
waypoint the aircraft proceeds to the next waypoint in n steps. This process 
continues from waypoint to waypoint until the first turn is reached. At this 
time the aircraft stops, assumes the designated bank angle in n steps, then 
continues around the turn in n steps. Upon completing the turn, the aircraft 
again stops and returns to wings level in n steps continuing on in a like 
manner to the touchdown point. The output parameters are computed at each o f 
the n steps of each segment of the path. 


3 


Results 


The results are presented in four data sets, one set for each of the four 
approach profiles investigated. In each case, the active runway at WFC is 04 
as shown in the first figure of each set. Table 1 gives the parameters of each 
flight profile. The next three figures in each set are plots of the look 
angles. Negative azimuth angles are to the left of the aircraft longitudinal 
axis and negative elevation angles are below the aircraft lateral axis. For 
profile 1 (figure 3), the look angle to the MLS azimuth antenna (figure 3a) 
varied from 3° to -167° in azimuth and 25° to -36° in elevation. The look 
angle to the MLS El-1 antenna (figure 3b) varied from 90° to -165° in azimuth 
and 24° to -36° in elevation. The look angle to the FPS-16 radar (figure 3c) 
varied from -1° to -167° in azimuth and 24° to -37° in elevation. For profile 
2 (figure 4) the look angle to the MLS azimuth antenna (figure 4*1 varied from 
14° to -167° in azimuth and 24° to -31° in elevation. The look angle to the 
MLS El-1 antenna (figure 4b) varied from 17° to -161° in azimuth and 24° to 
-28° in elevation. The look angle to the FPS-16 radar (figure 4c) varied 
from 17° to -167° in azimuth and 24° to -29° in elevation. Profiles 3 and 4 
(figures 5, a, b, c, and 6 a, b, c) are very similar with the azimuth angle 
varying from -20° to 160° and the elevation angle varying from 25° to -35°. 

For the other WFC runways, the look angles to the MLS antenna are identical 
to those of 04 and only slightly different for the FPS-16 radar. 

Concluding Remarks 

The antenna coverage requirements based on four specific flight profiles 
have been determined. The antenna has been designed as per these requirements 
and found, due to hardware location constraints, to have considerably less 
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elevation coverage than the required -35° in the turn to the downwind leg. 

It is recommended, therefore, that the design be implemented as is and adjust 
ments be made to the flight profiles such that the turn to the downwind leg 
occurs outside of the MLS coverage zone. This change in the profile will not 
be detrimental to the planned research in MLS utilization or CDTI. 
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Table 1 



Profile 1 

Profile 2 

Profile 3 

Profile 4 

H 1 degrees 

40 

40 

40 

40 

H 2 degrees 

40 

40 

40 

40 

H 3 degrees 

130 

130 

310 

310 

H 4 degrees 

220 

220 

220 

220 

H 5 degrees 

133 

182 

263 

309 

S 1 nm 

5 

5 

5 

5 

S 2 nm 

7 

7 

7 

7 

S 3 nm 

2 

2 

4 

4 

S 4 nm 

6.5 

19.5 

7 

7 

S 5 nm 

25 

14 

26 

19 

S 6 nm 

16 

23 

18 

19.5 

Altitude ft/groundspeed 

knots 




at PT 1 

1750/130 

1750/130 

1750/130 

1750/130 

at PT 2 

2750/160 

2750/160 

2750/160 

2750/160 

at PT 3 

2750/160 

2750/160 

2750/160 

2750/160 

at PT 4 

2750/180 

2750/180 

2750/180 

2750/180 

at PT 5 

2750/180 

2750/180 

2750/180 

2750/180 

at PT 6 

3750/200 

6750/250 

3750/200 

3750/200 

at PT 7 

3750/200 

675C/250 

3750/200 

3750/200 

at PT 8 

7750/250 

8750/250 

6750/250 

6750/250 

at PT 9 

12750/350 

12750/350 

12750/350 

12750/350 


H is aircraft heading in degrees 
S is length of flight path segment in nautical miles 
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READY 


append: x a 


12 PPIMT " J4 r 0 FOR TLS CP TO PLOT PATH: NO‘l-0 FOP FPS-16* 
14 INPUT J4 
lb IF J4=»0 THEN 20 

17 PRINT "IHPUTJ5.JS AS FEF FINAL HEADING (HI)': 

18 INPUT J5. Jb 
26 DIM AC 32 3 

21 MAT A*ZER 

22 LET L4= 1 
24 LET M- =0 
26 LET N4-1 

30 DIM IC323 

31 MAT I *ZER 

32 LET L5=20 
34 LET M5-0 
3b LET N5= l 

80 PRINT ’J7-0 TO PLOT PATH: NON-0 FOR LOOK ANGLES’: 

32 INPUT J7 
84 READ H1.H3.H4 
86 DATA 40.310.220 
88 PEAD H5 
90 DATA 263 
92 PEAD SI 
94 DATA 5 
96 PEAD S2 


98 

DATA i 



100 

PEAD 

S3 


110 

DATA 

4 


120 

PEAD 

S4 


130 

DATA 

7 


140 

PEAD 

S5 


150 

DATA 

26 

o o 

”0 33 

160 

READ 

S6 

170 

DATA 

13 

•V O 

172 

PEAD 

V0.Z0 

£2 

174 

DATA 

13O.0 

g > 
r* 

180 

READ 

VI. Z1 

190 

DATA 

130. 1750 

€3 

200 

READ 

V2.Z2 


218 

DATA 

168.2750 

H W 

l n 

220 

PEhi> 

V3.Z3 

3b 

230 

DATA 

160.2750 

240 

PEAD 

V4.Z4 


250 

DATA 

180.2750 


268 

READ 

V5.Z5 


270 

DATA 

180.2750 


2C0 

FEAD 

' *3 • Z6 


>40 

DATA 

20>." '750 • 


300 

READ 

V7.Z- 


310 

l'ATA 

20A.3750 



320 PEAD V8.Z3 
330 DATA 250.6750 
340 READ V9.Z9 
350 DATA 350.12750 
360 PEAD C.J.J1.J2 
370 DATA 1.74533E-02.5.5.607S. 1 
380 READ U 
390 DATA 60 
400 READ R 
410 DATA 1 

414 PRINT *J3-0 TO PRINT ALL DATA & PLOT LOOK ANGLES; * 

415 PP I NT "NGN-0 FOP PLOT ONLY (LOOK ANGLES OR PATH)'; 

416 INPUT J8 
420 PEAD X0.Y0 
430 DATA 0.0 
500 LET XI -SI 
510 LET Yl-0 
520 LET X2-S1+S2 
530 LET Y2-0 
540 LET X3-X2+P 
550 LET Y3*SGN(U) *P 
560 LET X4-X3 
570 LET Y4-Y3+S0N«J)*S3 
580 LET X5-X2 

590 LET Y5 - Y4+SGN < U ) *R 
600 LET X6-X5-S4 
610 LET Yb-'i^ 

620 LET E-H5-H4 
625 GOSUB 5700 

630 LET X7-X6-SGN (U) +F 1 *SIN(E*C) 

640 LET Y7-Y6+SCN U) <R IK 1-COS (E*C>) 

650 IF AB5(E)>1£0 THEN 670 
660 GOTO 680 
670 LET E=3tO-ABS(E> 

680 LET X8»X7-S5»C03iAB3(E>*C> 

690 LET Y8-Y7+SGN(U « r55»SIN'APS(EMC) 

700 LET X9*X8-S6*C0S(Ab3iE *C> 

710 LET Y9~ Y8+SGNIU) *Sb<S INlABSCE '• *C) 

711 IF J7-0 THEN 720 

712 IF J8*0 THEN 350 
715 CALL (8.1) 

717 PRINT " 


'23 

pr IK' ■ ;o=*/:o: "':0 = “‘,*o; • :o -- zo; 

*V0*"V3 

721 

PRINT 


722 

: . : 

*VI* "VI 

723 

PPIN 


724 

PF.I:U ’ , X2--'X2:"Y2* ,, Y2: ’Z2*"Z2; 

*V2*"V2 

725 

PR IN 


726 

PPINT "Xa-'X3**Y3- , Y3S*23 '2 5; 

* V3**73 

727 

PRINT 


720 

PRINT "X4=*K4; "Y4= J Y4; B Z4='Z4: 

" V4* " V4 

729 

PRINT 


730 

PF I NT * , 5*’ , X5: *Y5=*Y5: •Z5^ 9 Zb: 

"V5*"V5 

731 

PRINT 


732 

PRINT •X6= , Y6: •Yb-’YS; "26= -26: 

*VS=“V6 

733 

PRINT 


734 

PRINT 3 X7 =*X?; *Y7="Y7 ■ ■Zr = , Z7: 

»V7*"V7 

735 

FRINT 


736 

PRINT -XB^XS; *Y3* "Y8; '28= '23: 

*V3= n V3 

737 

PRr‘'T 


738 

PR INI “X9 = “X4; eya , 

*V9* "V9 

739 

PRINT 


745 

PPINT •Mi»*UiS"M3»"H3s *H4= ”H4: 

■H5="H5 

750 

PRINT 


755 

PPINT *S1=*8 . 'S2 = *S2: m SZ="Sl: 

C S4= ’34 

760 

PRINT 


850 

LET H*H5 


860 

LET 8=0 


862 

LET S8=FI*C*hBS'E'> 


864 

LET S9=P'C*90 


866 

LET S=Sl+£2+S9+S3+S9+S4 -SP rS5+SS 

870 

LET L = |, X9-.<8 : '2 


830 

LET M=^Y9-Y8)^J 


890 

LET N= (29-28 )/J 


400 

LET Q = (V9-V8)AJ 


910 

LET K-S6XJ 


920 

LET X«X9 


930 

LET Y-‘i*9 


940 

LET Z=Z9 


950 

LET V=V9 


960 

LET G«YiTN( (Z9-Z8>X(S6*J2))/'C 


962 

IF J8*0 THEN 970 


965 

PRINT "85 = *65. ;i S5= ”86: *S8= ’S3: 

•S9="S9 

970 

GOSUB 6800 


1 1 10 

GOSUB 4500 


1 120 

IF O S I +S2+bD J S5+S9 <-84+83-1 55+LV2 TH2I 

1130 

LET L = C\8-X7), J 


1 1 43 

LET H-CY8-V7) J 


1 150 

LFT N= (Z8-77 1 'J 


1 lbO 

LET 0 = t V8-V7 > J 


t 1 70 

LET K =85 J 


1172 

LF r G=hTN( (28-Z7j ■ -=■ ’2' • " 


1 1C3 

GOSUB 6 rr -0 


1 3M 

60:2.2 4520 


UttJ 

T F 6 31 +S2+S* 1 05+- . b* * ■ 22 '2 

THEN 1 








1350 LET Eo-ft&S^) 

1360 LET U-E6/JI 
1362 LET G-0 
1364 LET K-S8/JI 

1670 LET B5«-SGN<Um' , N(U.S88*2*V7*2)/(32.2*Rl*J20).'t 
1375 GObUB 6800 
1450 GOSUB 4300 
1460 GOSUB 6800 
1430 LET E6-E6-U 
1490 LET H=H-SGN(U)+U 
1500 IF H>360 THEM 1520 
1510 GOTO 1530 
1520 LET H H-360 
1530 IF HT0 THEM 1550 
1540 GOTO 1560 
1550 LET H=3S0^ 

1560 LET X‘= :6 -R1*SIN(E6 iC) 

1570 LET Y-Y6+SGN(U)>M?1 .<( 1-C0SCE6+C) > 

1580 LET S-S-K 

1590 IF S>S 1+S2+S9+S3+S9+S4-1K/2 THEM 1460 
160G GOSUB 6809 
1690 GOSUB 6600 
1710 LET L-(X6-X5)a; 

1720 LET M*(Y6-Y5)/J 
1730 LET N-(Z6-Z5)/J 
1740 LET Q«CV6-V5)/J 
.750 LET K-S4AJ 

1760 LET G=hTM((Z6-Z5)/(S4kJ2))/C 
1770 GOSUB 45O0 
1870 GOSUB 6800 

1830 IF w xS 1 +32+S9+S3+S9+K SI THEM 1770 
1890 LET El-0 
1900 LET U-90/J1 
1905 LET K-S9/J1 

2010 LET G=0 

2011 LET B5=SGH(U)*ATN<(1. 633*2 >7'»2)/'<32.2*R*J2) )/C 

2012 GOSUB 6890 
2015 GOSUB 4380 
2020 GOSUB 6809 
2025 LET E1-E1-HJ 
2030 LET H=H+SGN(Umi 
204O IF M>350 THEM 2060 
2050 GOTO 2070 
2068 LET H-H-360 
2070 IF HxO THEM 3090 
3080 GOTO 2190 
2090 LET H-360+-H 
'1C LET ■: . .2iSIM(Zl 7) 

2H0 LET Y-Y4+SGH ' U > ‘3 CUS(E 1*C 1 
2120 LET S-S-K 

2170 IF S S 1 +32+S9*S3^ ■ ? THEM 2920 
2140 GOSUB 6200 
2250 GOSUB 66 jO 
2260 let l^-*.,:4-:-:3»yj 






2270 LET I1=(V4-Y3> J 
2230 LET H=( 24-23) M 
2230 LET IXV4-V3W 
2300 LET K=S3 J 

2310 LET G»hTN((Z4-23>/(S3*J2))''C 
2320 GOSUB 4500 
2420 GOSUB £80B 

2433 IF S>S 1+S2+S9+KV2 THEM 2320 

2440 LET El =90 

2450 LET U*E 1 'J 1 

2455 LET K=S3 J1 

2560 LET G=0 

2570 LET B5*SGN(U)n«ATNC(1.688'»2W^2)/(32.2*P*J2))/t: 

2575 GOSUB 4300 

2577 GOSUB 6800 

2530 LET El-El-U 

2530 LET H=H+SGN(U)+*J 

2600 IF H>368 THEM 2620 

2610 GOTO 2630 

2620 LET H=H-360 

2630 IF H<0 THEN 2650 

2640 GOTO 2660 

2650 LET H=360+H 

2660 LET X*X2+P*SIN(E1*C) 

2670 LET Y*Y3~SGN(U) *R*C0S(E1*C) 

2680 LET S=S-K 

2680 IF S>Sl+S2+K/2 THEN 2577 

2700 GOSUB 6300 

2800 GOSUB 6600 

2810 LET L*(X2-X1)/J 

2320 LET M= ( Y2-Y1 ) /3 

2830 LET N*(Z2-Z1 )/J 

2840 LET Q«(V2-V1), J 

2850 LET K=S2^J 

2860 LET G=HT>k (22-Z1 )/(S2 > J2) )/C 
2370 GOSUB 45O0 
2980 GOSUB 6800 
2336 IF S>Sl+kV2 THEM 2870 
3000 LET L-Xl/J 
3010 LET M-Yl/J 
302O LET N=kZl-Z0)/J 
3030 LET K*S1/J 
3035 LET Q -• ( V 1 - V0 > /J 
3040 LET G=ATN((ZI-Z0)/(S1*J2))/C 
3050 GOSUB 4500 
32O0 GOSUB 6800 
3210 IF S>K/2 THEN 3050 
3215 LET G=0 
3360 COLL (3.0C n. 1.L4' 

3365 CALL (3.IC13.1.L5) 

3370 PRINT *L4=-L4 
3375 PRINT , L5-- ,, L5 

3350 PRINT -ri4=*ri4 - 

335 1 PRINT *n5=*M3 
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3382 If- J&^O THEM 3400 
3385 PRINT “ 


3390 CALL '8.C:l 
3400 GOTO 9999 
4500 LET X=X-L 
4510 LET Y-Y-M 
4520 LET Z=Z-N 
4530 LET V=V-G 
4540 LET S*S-K 
4550 RETURN 

4700 PRINT 

4701 PRINT 

4705 PRINT , X=*X; "Y=*Y; "Z="2 
4710 PRINT 

4720 PRINT "HEADIHG = -H; "BANK="B: "GS = "G; T'TG-’S; “V="V 

4740 RETURN 

4S0O LET e=B5/Jl 

4310 GOSUB 6800 

4890 LET B-B+B5/J1 

4900 IF ABS ( B ) < ABS C B5 ) -ABS t B5 ) / ( 2 t J 1 ) THEN 4910 
4910 RETURN 

5000 LET B=-C*8 

5001 LET »X*J2 

5002 LET Y=Y*J2 

5003 LET H=C*YH-H 1 ) 

5004 GOSUB 5500 
5006 LET X-X+9000 
5008 GOSUB 5030 

5089 IF J3*0 THEN 5014 
5010 PRINT "TO AZ SITE:"; 

5012 GOSUB 5210 

5014 GOSUB 5300 
5016 LET X-X-9000 
5020 LET Y=Y-300 

5022 GOSUB 5030 

5023 IF J&*0 THEN 5027 

5024 PRINT "TO EL-1 SITE:"; 

5025 GOSUB 5210 

5027 GOSUB 5400 

5028 LET Y*Y+380 

5029 GOTO 5130 

5030 LET P9*X*C0S(P)*CGSi.H)-Y*C0S(Pl*SIN(H)+Z*SIN(P) 
5040 LET Q9*X+(SIN(B)^SIN(P)*C0SrH)-C0S(B;*SINCH)) 
5050 LET G9-Q9-Y*(SIH(B)*SIN(P>*SIN(H>+C0S(B)*C0S(H)) 
5060 LET G9-Q9-Z*SIN<B)*C0S(P) 

5070 LET R9-X+(C0S(B) :SIN(F)fCaSCH)-»-SIH(BV4.SIN(H)) 
503O LET R9*R9-Y : CCOS(B) *SIN(P) *SIN(H)-SIN(B> ♦COS(H) ) 

5090 LET R9«R9-Z*€US<B *COS‘P) 

5108 LET A9*ATN(R9 SQR P9 • ■* » >*57.29 

5110 IF P9#0 THEN 5130 
5120 LET P9 - . 1 
5122 PRINT "X«.l* 

5130 LET B9*‘ATN. n9 P9') K57.2953 
5143 IF P9 O THEN 5160 
^ 150 LET B9-SGN i ; 33+B9 
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5160 RETURN 
5180 LET P— PrC 
5 !90 LET B— B/C 
5203 LET H=Hl+H -t 

5202 LET J2 

5203 LET Y*Y/J2 
5205 RETURN 

5213 PRINT “ALPHA ="A9;*BETA = "B3: “P ITCH = "P 

5230 PETUPN 

5330 LET ACN4 j=B9 

5310 LET AC N4+1 ]=A9 

5320 LET ri4=ri4+l 

5340 LET N4=N4+2 

5350 IF N4>32 THEN 5365 

5360 PETUPN 

5365 CALL (3. AC 1 j. 1.L4) 

5370 LET N4-1 

5380 LET L4=L4+ 1 

5385 MAT A=ZEP 

5390 RETURN 

54O0 LET IC H5 ]=B9 

5435 LET ICN5+1>A9 

5410 LET 115=115+1 

5415 LET N5=N5+2 

5420 IF N5>32 THEN 5430 

5425 PETUPN 

5430 CALL ' 3. !C 1 3, 1.L5) 

5435 LET N5-1 
5440 LET L5=L5+1 
5445 NAT I =ZER 
5450 RETURN 
5455 LET AC N43*K 
5458 LET ACN4+1]=Y 

5463 LET 114=114+1 

5462 LET N4=N4+2 

5464 IF N4 >32 THEN 5463 

5465 RETURN 

5463 CALL ■ 3.AC 1 j. 1.L4 
5470 LET N4= 1 

5472 LET L4=L4+1 
5474 MAT A=ZER 
5476 RETURN 
5500 LET P=3-G 

5510 LET F’=P+42+(S0P(l+TAN(B^+2>-l) 

5520 LET P=-C+P 
5530 RETURN 

5700 LET B*ATN< < 1 .688+2*77+2) /'(32.2*R*J2))/C 
“705 IF B 30 THEN 5723 
5707 LET P 1 = 1 
5710 PETUPN 

720 LE P 1 * ( 1 . bC 3 *-2 ' 77 * 2 • < 32 . 2 : .’?■ i T;;: I 3? r-C) 
5730 RETURN 

60-: o let 12 

6602 LET Y»Y-rJ2 


600*5 

6010 

6820 

6022 

6025 

6030 

6O40 

6045 

6050 

6052 

6054 

6055 
6060 
6070 
6080 
6090 
6092 
6095 
6100 
6110 
6120 
6130 
6140 
6150 
6500 
6600 
6605 
6690 
6700 
6800 
6802 
6304 
6806 
6808 
6810 
6820 
6825 
6830 
6840 
bS50 
6855 
6860 
6870 
6830 
70O0 
7010 
7012 
7014 
702O 
7030 
7040 
7850 
7055 
7060 




LET D=SQP 0<*2MY-3?0> +2 : Z*2> 

LET T *8 . 6B589*L0G < 66 . 42*D ) 

LET F= (ATN( (Y-308)7X) ) /C 

IF X>0 THEM 6050 

LET F-SGN(U)*(130-ABS<F)> 

LET F2*SGR(X*2+(Y-300 ' *2) 

LET E8-(ATM<Z/F2))/C 
IF ABS i F) ' ABS CU) THEN 6054 
PRINT "INSIDE MLS COVERAGE ZONE" 

GOTO 6055 

PRINT "OUTSIDE MLS COVERAGE ZONE" 

PRINT "FROM ELI SITE: ’: 

PRINT "hZ= "F ; “EL=*E8: "RANGE* *0/6076 . 1; "LOSS="T 
LET D 1 =SQP C ( X+9 000 > ? 2+Y< 2 +Z *2 ) 

LET T 1=8. 68589 ’•'LOG' SS.42 + D1) 

LET Fl-(ATN(Y/(X+9000)))/C 

IF X>-900O THEN 6100 

LET F 1 *SGN(U)*( I80-AB3(F 1 ) ) 

LET F3-SGRC (X+90RO > *2+Y*2) 

LET E2 = (ATNi Z F3 1 )- C 
PRINT "FROM AZ SITE: 

PRINT “AZ-"F1; "EL*"E2: "RADGE *"D 1/6076. 1: "LGSS="T1 
LET X-X/J2 
LET Y*Y/J2 
RETURN 

LET B=B-B5/Jl 
GOSUB 6800 

IF ABS B)>ABS(B5)/C2*J1) THEN 6600 
PETURN 

IF J7*0 THEN 6S0b 
GOSUB 5455 
RETURN 

IF JS*0 THEN 6810 
GOSUB 47G0 
IF J4*0 THEN 6050 
GOSUB 5000 
IF J8-*0 THEN 6380 
GOSUB 60C0 
GOTO 6330 
GOSUB 7000 
IF J8*0 THEN 6830 
GOSUB 8000 
GOSUB 9800 
RETURN 
LET B*-C*fi 
LET H=C*(H-H1) 

LET X-X*J 2 
LET Y*Y*J2 
GOSUB 550O 
LET Y*Y-J5 
LET X*X-I6 
GOSUB 5030 
IF J3*0 THEN 70 '5 
PRINT TO F"S- 1 S S " 
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7070 G05UB 5210 
7075 GOSUB 530O 
7080 LET Y-Y+J5 
7090 LET X-X+J6 
7110 GOTO 5180 
7120 RETURN 
8600 LET X-X*J2 
8002 LET Y=Y*J2 

8005 LET D«S0R((X-J6)+2+(Y-J5)*2+Z*2' 

8010 LET T=8.b8583^L0G-:b6.42tDi 
8020 LET F=8TN(CY-J5)/(X-Jb))/C 
8022 IF X>Jb THEN 8030 
8025 LET F=SGN(U)*( 180-ABSCF) ) 

8030 LET F2*SQRC(X-Jb)^2+(Y-J5)^2) 

8040 LET E8*ATH(Z F2 1 C 
8060 PRINT "FROM FPS-lb SITE" 

• PRINT ‘hZ«’F:"EL-’E8; "RANGE*": 3076. U 'LOSS- # T 

8087 LET X*X' J2 

8088 LET Y=Y/J2 
8890 RETURN 
9000 LET X=X* J2 
9010 LET Y«Y*J2 

9020 LET F3=(ATN((Y-300)/^O)^C 

9030 IF X>0 THEN 9040 

9035 LET F3«SGN(U)*C180-ABS(F3» 

9O40 IF ABS (F3) <- ABS<U) THEN 9093 
9050 PPINT ’OUTSIDE MLS COVERAGE ZONE’ 

9860 LET X*X/J2 
9070 LET Y=Y/J2 
9080 RETURN 

3090 PRINT ’INSIDE MLS COVERAGE ZONE * 

9100 GOTO 9060 
9999 END 
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